package MariposaDB::Utils;

use strict;

use String::Random;


# Random Bits and Pieces that are used from time to time

sub one_time_delim
{
    # this was originally used so we didn't have to find out the length of the string
    # to start with.  If everything is in core, (or on disk) it doesn't matter, but might someday?
    my ($length) = @_;

    $length = $length || 63;

    my $rstring = new String::Random;
    return $rstring->randpattern("." x $length); 
}

1;
